home *** CD-ROM | disk | FTP | other *** search
/ Summit / Summit Recordable CD-ROM.ISO / screen / 1dover.spr < prev    next >
Encoding:
Text File  |  1994-08-11  |  2.7 KB  |  91 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 08/11/94             1DOVER.SPR                19:31:29 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Duncan Halstead                                         
  8. *       *                                                         
  9. *       * Copyright (c) 1994 CD-ROM, Inc.                         
  10. *       * 603 Park Point Dr.                                      
  11. *       * Golden, CO  80401                                       
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. *       *********************************************************
  35. *       *                                                         
  36. *       *               Windows Window definitions                
  37. *       *                                                         
  38. *       *********************************************************
  39. *
  40.  
  41. IF NOT WEXIST("_qsh15ujcz")
  42.     DEFINE WINDOW _qsh15ujcz ;
  43.         AT  0.000, 0.000  ;
  44.         SIZE 21.077,62.600 ;
  45.         TITLE "Dover White" ;
  46.         FONT "MS Sans Serif", 8 ;
  47.         FLOAT ;
  48.         NOCLOSE ;
  49.         MINIMIZE ;
  50.         SYSTEM
  51.     MOVE WINDOW _qsh15ujcz CENTER
  52. ENDIF
  53.  
  54.  
  55. *       *********************************************************
  56. *       *                                                         
  57. *       *              1DOVER/Windows Screen Layout               
  58. *       *                                                         
  59. *       *********************************************************
  60. *
  61.  
  62. #REGION 1
  63. IF WVISIBLE("_qsh15ujcz")
  64.     ACTIVATE WINDOW _qsh15ujcz SAME
  65. ELSE
  66.     ACTIVATE WINDOW _qsh15ujcz NOSHOW
  67. ENDIF
  68. @ 0.000,0.000 SAY (LOCFILE("screen\bmp\1dover.bmp","BMP|ICO|PCT|ICN", "Where is 1dover?" )) BITMAP ;
  69.     SIZE 20.923,62.200 ;
  70.     ISOMETRIC ;
  71.     STYLE "T"
  72.  
  73. IF NOT WVISIBLE("_qsh15ujcz")
  74.     ACTIVATE WINDOW _qsh15ujcz
  75. ENDIF
  76.  
  77. READ CYCLE
  78.  
  79. RELEASE WINDOW _qsh15ujcz
  80.  
  81. #REGION 0
  82.  
  83. SET READBORDER &rborder
  84.  
  85. IF m.talkstat = "ON"
  86.     SET TALK ON
  87. ENDIF
  88. IF m.compstat = "ON"
  89.     SET COMPATIBLE ON
  90. ENDIF
  91.